home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 026-050 / scopedisk45 / rexxarp21 / rexx / remind.rexx < prev    next >
OS/2 REXX Batch file  |  1995-03-18  |  508b  |  22 lines
  1. /* this is the actual nagger */
  2. parse arg reminder 
  3.  
  4. parse var reminder date waittime nag message 
  5.  
  6. "date | execio stem today."
  7. parse var today.1 day todaydate time .
  8.  
  9. select
  10.   when date = todaydate then "wait until " waittime 
  11.   when date = "everyday"  then "wait until " waittime
  12.   when date = day then "wait until "waittime
  13.   otherwise exit
  14. end
  15. do i = 1 to 50
  16.    call screentofront()
  17.    x = request(100,100,message,,"Okay! Okay!")
  18.    if x = "OKAY" then exit
  19.    if nag = 1 then wait MIN 1
  20.    else exit
  21. end
  22.